home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / HARDWARE.SWG / 0031_Re Cpu-intensive Routine.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  600b  |  20 lines
  1. {
  2. I'm looking for a SMALL piece of code which can be used to replace a DELAY
  3. command that will be cpu-intensive, meaning that it will execute more quick
  4. depending upon the type of cpu and clock speed.  I know that obviously any
  5. code will exhibit this tendency, but I'm looking for something which do so
  6. a most dramatic fashion (as far as speed goes).  It should also be rather
  7. small and not necessarily zeroing in on the presence of an FPU.  Any ideas?
  8. }
  9.  
  10. Procedure CPUDelay(D: Word); Assembler;
  11. asm
  12.   @@1:
  13.     mov cx,$FFFF
  14.   @@2:
  15.     nop
  16.     loop @@2
  17.     dec[d]
  18.     jnz @@1
  19. end;
  20.